home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mail Madness! 45
/
Mail_Madness_45_200x_-_Side_B.d64
/
B 01. B
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
354b
|
14 lines
10 rem save"@:[194] 01. [194]",12
15 lw=peek(186):poke53265,11:poke53280,0:poke53281,0:poke646,0:print"[147][144]";
20 if a=0 then a=1:load"[194] 02.*",lw,1
21 if a=1 then a=2:load"[194] 04.*",lw,1
22 if a=2 then a=3:load"[194] 09.*",lw,1
30 poke 53272,19:poke 56576,195
35 poke53265,11:poke646,0
40 na$="[194] 03.*"
50 print"[147][144]l[207]"chr$(34)na$chr$(34)",";lw
60 print"[144]run":print"[144]run"
70 poke 631,19:poke 632,13:poke 633,13
80 poke 198,3
90 end